home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5270.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  32 lines
  1. 5 ONERRORGOTO500
  2. 10 MODE8:DIM:c$=CHR$(5)
  3. 20 CLS:PRINT"Yn(x)         (0ónó9,0<xó30)";
  4. 30 LOCATE0,1:PRINTc$;"n?   :x?      :Y=";
  5. 40 LOCATE2,1:INPUT@3;n$:LOCATE0,0:n=VALF(LEFT$(n$,3)):u=ABSn:IFn<0 ORu>=10 ORFRACu<>0 THEN400
  6. 60 LOCATE8,1:INPUT@6;x$:LOCATE0,0:x=VALF(LEFT$(x$,6)):v=ABSx:IFx=<0 ORv>30 THEN410
  7. 80 LOCATE17,1:PRINT" .....";:GOSUB220
  8. 100 IFn<0 THENr=r*(-1)^u
  9. 110 IFr<>0 ANDABSr>=1e-90 THENr=ROUND(r,LOG(ABSr)-7)
  10. 115 IFr<>0 ANDABSr<1e-90 THENr=r*1e10:r=ROUND(r,LOG(ABSr)-7):r=r/1e10
  11. 120 LOCATE18,1:PRINT"     ";:LOCATE17,1:PRINTr;:z$=INPUT$(1,@):GOTO30
  12. 220 k=INT(1+3*v^(1/12)+9*v^(1/3)+(ABS(u-v)+ABS(u+v))/2)
  13. 230 s=0:b=1.5:c=0:j=0
  14. 240 a=2*k/x*b-c:k=k-1
  15. 250 IFk=1 THENd=a
  16. 260 IFk=0 THEN290
  17. 270 IF(k MOD 2)=0 THENs=s+a:j=j+2*a*(-1)^(k/2-1)/k
  18. 280 c=b:b=a:GOTO240
  19. 290 s=2*s+a:j=j/s
  20. 300 j=(a*(.577215664901+LN(v/2))/s+2*j)*2/PI
  21. 310 IFn=0 THENr=j:RETURN
  22. 320 y=(d/s*j-2/PI/v)/a*s
  23. 330 IFu=1 THENr=y:RETURN
  24. 340 FORi=2 TOu:e=2*(i-1)*y/x-j:j=y:y=e:NEXT
  25. 350 r=e:RETURN
  26. 400 LOCATE2,1:PRINT"   ";:GOTO40
  27. 410 LOCATE8,1:PRINT"      ";:GOTO60
  28. 500 IFERR=1 THENCLS:ONERRORGOTO0
  29. 510 IFERL=40 THENRESUME400
  30. 520 IFERL=60 THENRESUME410
  31. 530 LOCATE17,1:PRINT"not found";:z$=INPUT$(1,@):RESUME20
  32.